# Usage: zeus.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

pass cleanUpCache
create {
	outputFile zeus.ps
	mapFile zeus.map
	title Zeus
	creator "Mario Huys (woelpad@yahoo.com)"
	$MapDrawingScale 1 $MapUnitScale 1
	powers {
		BRITAIN {B Blue White}
		CHINA {C Yellow Black}
		FRANCE {F Turquoise Black}
		GERMANY {G Black White}
		JAPAN {J Grey Black}
		USA {U Mauve White}
		USSR {S White Black}
		INDIA {_ @LimeGreen White}
	}
	images {
		shape {zeus5f_shape.bmp {trace 1}}
		continent {zeus5f_continent.bmp trace}
		border {zeus5f_border.bmp trace}
		connection {zeus5f_connection.bmp trace}
		location {zeus5f_location.bmp {trace 1}}
		beach {zeus5f_location.bmp {trace 1} {} {0 0 0 -12}}
	}
	locationTypes {
		Supplies {number 0 name 0 draw 1 define -1}
		Territories {number 0 name 1 populate 0 info 1}
		ShapePoints {number 0}
	}
	locations {
		supplies {image {location blue} Supplies s {Blue {} S} {
			INC IND CTN MDE EGY CHU OKI TUR STA KOR RUM
			PEK SOL MOS TOK GRE LEN YUG SEN FIN SAP POL
			MAG MID NWY BER DEN HAW {HAM 6} CAL VEN ROM CAN
			MUN NYO WAS EDI LOW LON PAR MAR SPA ALG
		}}
		coasts {image {location olive} Territories c {Red DarkGreen AF} {
			{BRM -3} IND {INC 3} IRA CTN {EGY 0 2} KAZ {TUR 2 1} PEK {KYU 0 -6} STA
			KOR RUM GRE {LIB -2} {SEN -3} {LIT 0 -6} {AMU 0 3} {PRU 7 -9} {SAP -3 -3} {MAG 0 2} {YUG 1 -3}
			SWE ALA ROM NWY BER ORE {DEN 0 1} CAL {HAM 0 3} VEN {NYO 2}
			EDI WAS {PIE 4 2} PAN LON LOW {WBR 7} PAR {GAS 5} MAR GIB
			{ALG 1}
		}}
		lands {image {location green} Territories l {Green DarkGreen A} {
			{NEP -3 -1} CHU SIN MOS {SIB 2} POL HUN CZE {AUS -2} MUN RUH
			SWI BUR
		}}
		waters {image {location navy} Territories w {White White F} {
			BEN INO SCS SPO ECS BLA {YEL 2 -1} EAS {SOJ 0 -3} CAR SOO
			CPO {BOT 10} ION {ESS -6 -3} NPO MPO {BAL 2} ADR ARC HEL NAO
			NTH {ENG -3} MAO WES BIS SAO
		}}
		ports {image {location yellow} Territories p {Pink White AF} {
			OKI {SOL 0 3} MID {HAW -6 -3}
		}}
		greens {image {location magenta} Territories g {DarkGreen DarkGreen A} {
			MDE {TOK 3 3} LEN {FIN -6} {CAN 1 -3} {COL -3 7} SPA
		}}
		beaches {image {beach maroon} Territories b {Yellow {} F} {
			MDE/SC MDE/WC {TOK/EC -3} {TOK/WC 3} {LEN/SC 0 -2} {LEN/NC -2}
			{FIN/SC -4} {FIN/NC -9 1} {CAN/WC -1 3} {CAN/EC 0 2} {COL/WC 13 1} {COL/EC 11 15}
			{SPA/NC 0 6} SPA/SC
		}}
		corners {image {shape purple} ShapePoints x Blue}
		crossings {image {shape lime} ShapePoints x Green}
	}
	shapes {
		sides {corners {line {
			1 3 5 7 6 4 2 1
		}}}
		bridges {crossings {{connection 1 {0 1 8 4}} {15 16}}}
		hops {crossings {connection {
			1 4 2 5 3 6 8 10 7 9 11 13 12 14
		}}}
	}
	borders {
		seaBorder {image {border blue} {} InternalBorder}
		continent {image {continent black} LandBrown CoastalBorder {{} 2}}
		island {image {continent teal} LandBrown CoastalBorder}
		isletBorder {image {continent magenta} {} Border {{} 4.2 {} 0 1}}
		islet {image {continent magenta} {} Border {LandBrown 2.2 {} 0 1}}
		landBorder {image {connection maroon} {} InternalBorder}
		countryBorder {image {border olive} {} NationalBorder}
		lake {image {continent navy} SeaBlue CoastalBorder {{} 2}}
		lakeBorder {image {border purple} {} InternalBorder}
		canal {image {border grey} {} Border {{} 4} Border {SeaBlue 2 {} 0 2}}
		strait {image {border lightgrey} {} Border {{} 4} Border {SeaBlue 1 {} 0 2}}
		crossings {shape {bridges hops} {} Border {Red 3 {} 0 1}}
	}
	frame {shape sides SeaBlue FrameBorder}
	paperSize Letter
	layout {corner adjustments} fontSize 7
	gameTitle Dip boardTitleFontSizeRatio 2
	drawLayoutBorder 7 composed 1 printLayout 0 testBorder 0
	addPage 0 pageContents1 {
		"UNOWNED"
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}
